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/* open output file stream */ 

op = sfopen(0, "output .pz" , "w") ; 

/* push gzip compress discipline */ 

sfdcgzip (op, SFGZ_NOCRC) ; 

/* write pzip header and partition */ 

sfwrite(op, header, header_size) ; 

sf sync (op) ; 

/* loop through all windows */ 
while (parts = read_window (ip, buf ) ) 

/* output window size */ 
sfputu(op, parts - >winsi ze ) ; 
/* output each partition class */ 
for (i = 0; i < parts- >classes; i++) 
sf write (op, parts- >pclass [i] , 
parts->psize [i] ) ; 

sf sync (op) ; 

/* write DIFE low frequency data */ 

} 
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for ( ; ; ) 

{ 

/* read number of pattern copies */ 
number_copies = sfgetu(ip) 
do 

{ 

/* initialize output record 

with low frequency columns */ 
memcpy (buf , pat , record_size) ; 
/* add in high frequency columns */ 
for (i = 0; i < high freq cols; i++) 

{ 

buf [map [i] ] = *mix[i] ; 
mix [i] += inc [i] ; 

} 

/* write the record */ 
Q sfwrite(op, buf, record_size) ; 

}q } while (--number_copies > 0) ; 

/* 9 e t next pattern column 

off set +1 that changes */ 
column = sfgetu(ip) 
/* 0 means window is done */ 
if (column == 0) 

return 0; 
for (;;) 



3 - t 



{ 



/* install the new value */ 
pat [column - 1] = *val++ 
/* get next offset+1 */ 
column = sfgetu(ip); 
/* 0 means changes are done 
if (column == 0) 
return 0; 
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record size: 752 



fieldl 

field2 

field3 
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fields 

field6 

field7 

field8 

field9 

fieldlO 

fieldll 

fieldl2 

fieldl3 

fieldl4 

fieldlS 

fieldl6 

fieldl7 

fieldl8 



748 82 734 81 749-750 78 747 744-746 79-80 743 77 
225 224 222-223 226-232 119 233 117-118 422 236 
450 424 96 62 95 61 449 
125-126 124 123 121 120 122 
331 330 

166 159-160 167 164 

138 555 554 137 560 157 271 270 

423 320 319 178 564 316 

107-108 106 
: 163 165 158 
: 63 
: 66 
: 67-68 
: 69 
: 70 
: 71 

: 161-162 
: otherwise. 
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